Otherware/Otherware_1_SB_Development.iso/mac/hypercar/fun/swllog10.sit/SWL Log 1.0/background_2209.xml

Extensible Markup Language | 1991-03-19 | 17.3 KB | 390 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>2209</id>
    <filler1>0</filler1>
    <bitmap>BMAP_2997.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <true /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3183.css" />
    <part>
        <id>1410</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>480</left>
            <top>318</top>
            <right>512</right>
            <bottom>342</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>14953</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>go back</name>
        <script>on mouseUp
global activebutton
lock screen

put "M" & activebutton into name
put cd field name into value
if value is empty then
put the name of this card into foo
pop card
if the name of this card is foo then
go to first card of background "Frequencies"
end if
else
put the name of this card into foo
pop card into hold
put "F" & the first item of value into cardname
go to card cardname of background "Frequencies"
if the name of this card is foo then
go to first card of background "Frequencies"
end if
end if
unlock screen with dissolve
end mouseUp</script>
    </part>
    <part>
        <id>1411</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>95</left>
            <top>323</top>
            <right>174</right>
            <bottom>339</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>memory</name>
        <script></script>
    </part>
    <part>
        <id>1412</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>0</left>
            <top>0</top>
            <right>82</right>
            <bottom>17</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>cardofcards</name>
        <script></script>
    </part>
    <part>
        <id>1414</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>373</left>
            <top>324</top>
            <right>420</right>
            <bottom>342</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Load</name>
        <script>on mouseUp
global activebutton

repeat with i = 0 to 99
put "M" & i into foo
if card field foo is bkgnd field memory then
put "Frequency is already assigned to memory " & i into foo2
answer foo2 with "OK"
exit mouseUp
end if
end repeat
put "M" & activebutton into foo2
put card field foo2 into foo
lock screen
if foo is not empty then
answer "Chosen memory is already full. Override?"¬
with "OK" or "Cancel"
if it is "Cancel" then exit mouseUp
deletefreq (activebutton)
clearmem (activebutton)
end if
addfreq(activebutton)
put bg field "memory" into foo
put item 2 of foo into foo2
if char 1 of foo2 is " " then delete char 1 of foo2
setmem activebutton, item 1 of foo, foo2
end mouseUp
</script>
    </part>
    <part>
        <id>1415</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>420</left>
            <top>324</top>
            <right>470</right>
            <bottom>342</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Delete</name>
        <script>on mouseUp
global activebutton

put "M" & activebutton into foo2
put card field foo2 into foo
if foo is empty then
answer "Chosen activebutton is already empty" with "OK"
exit mouseUp
end if
set lockscreen to true
deletefreq (activebutton)
clearmem activebutton
end mouseUp
</script>
    </part>
    <part>
        <id>1418</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>0</left>
            <top>0</top>
            <right>45</right>
            <bottom>15</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>sort order</name>
        <script></script>
    </part>
    <part>
        <id>1419</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>372</left>
            <top>305</top>
            <right>470</right>
            <bottom>324</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Get Memories</name>
        <script>on mouseUp
set lockscreen to true
put bg field "memory" into holdit
repeat with i = 0 to 99
set cursor to busy
put "M" & i into name
put empty into cd field name
end repeat

push card
go to first card of bg "Frequencies"
repeat for the number of cards of background "Frequencies"
put empty into bg field "memory"
go to next card
end repeat
pop card

repeat with i = 0 to 99
set cursor to busy
put getmem(i) into line
put line into bg field "memory"
put "M" & i into name
if line is not empty then
if  addfreq2(i) = false then
set the textStyle of cd field name to italic
else
set the textStyle of cd field name to plain
end if
end if
end repeat
put holdit into bg field "memory"
set lockscreen to false
end mouseUp
</script>
    </part>
    <part>
        <id>1422</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>230</left>
            <top>315</top>
            <right>273</right>
            <bottom>334</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Memory</name>
        <script>on mouseUp
vfoselect mem
end mouseUp</script>
    </part>
    <part>
        <id>1425</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>184</left>
            <top>323</top>
            <right>227</right>
            <bottom>342</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>scan off</name>
        <script>on mouseUp
setscan off
end mouseUp</script>
    </part>
    <part>
        <id>1426</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>183</left>
            <top>304</top>
            <right>226</right>
            <bottom>323</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Scan on</name>
        <script>on mouseUp
setscan on
end mouseUp</script>
    </part>
    <part>
        <id>1427</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>95</left>
            <top>309</top>
            <right>174</right>
            <bottom>325</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>memnum</name>
        <script></script>
    </part>
    <part>
        <id>1429</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>323</left>
            <top>315</top>
            <right>366</right>
            <bottom>334</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Move</name>
        <script>on mouseUp
ask "memory to move?"
put it into oldmem
if it is empty then exit mouseup
if it < 0 or it > 100 then
answer "not a legal memory" with "OK"
exit mouseUp
end if
put "M" & oldmem into oldname
if cd field oldname is empty then
answer "this memory is empty" with "OK"
exit mouseUp
end if

ask "move to memory?"
put it into newmem
if it is empty then exit mouseup
if it < 0 or it > 100 then
answer "not a legal memory" with "OK"
exit mouseUp
end if
if oldmem = newmem then
answer "source and destination are the same" with OK
exit mouseUp
end if

put "M" & newmem into newname
if cd field newname is not empty then
answer "This memory is not empty -- override?" with OK or Cancel
if it is "cancel" then exit mouseUp
deletefreq newmem
clearmem newmem
end if

set lockscreen to true
put background field "memory" into hold
put cd field oldname into background field "memory"
deletefreq oldmem
clearmem oldmem
addfreq newmem
put item 2 of bg field "memory" into foo2
if char 1 of foo2 is " " then delete char 1 of foo2
setmem newmem, item 1 of bg field "memory", foo2
put hold into background field "memory"

end mouseUp</script>
    </part>
    <name>Memories</name>
    <script>on addfreq memory
if addfreq2(memory) = false then
answer "frequency not set in freq lists" with "OK"
end if
end addfreq

function addfreq2 memory
set cursor to busy
set lockscreen to true
put bkgnd field "memory" into mem
put offset (",", mem) into delim
subtract 1 from delim
put char 1 to delim of mem into freq
put "M" & memory into foo
put mem into card field foo
push card
put 1 into loop
put 0 into found
repeat until loop = 0
find whole freq in bkgnd field "frequency"
if the result is "not found" then
put 0 into loop
else
if bkgnd field "memory" is memory then
put 0 into loop
else
put memory into bkgnd field "memory"
put 1 into found
end if
end if
end repeat
if found is 0 then
return false
end if
pop card
set lockscreen to false
return true
end addfreq2

on deletefreq memory
set cursor to busy
-- set lockscreen to true
push card
put 1 into loop
put 0 into found
put bkgnd field "memory" into mem
put offset (",", mem) into delim
subtract 1 from delim
put char 1 to delim of mem into freq
repeat until loop = 0
find whole freq in bkgnd field "frequency"
if the result is "not found" then
put 0 into loop
else
if bg field "memory" is empty then
put 0 into loop
else
put empty into bkgnd field "memory"
put 1 into found
end if
end if
end repeat
if found is 0 then
answer "memory not set in freq lists" with "OK"
end if
pop card
put "M" & memory into foo
put empty into card field foo
set lockscreen to false
end deletefreq

on radbuttonsoff
global activebutton

if activebutton = empty then
repeat with i = 0 to 99
put "M" & i into foo
set the highlight of cd button foo to false
end repeat
else
put "M" & activebutton into name
if the highlight of cd button name is true then
set the highlight of cd button name to false
else
repeat with i = 0 to 99
put "M" & i into foo
set the highlight of cd button foo to false
end repeat
end if
end if
end radbuttonsoff

on mouseDown
global activebutton
set cursor to watch

put the name of target into foo
if word 2 of foo is "button" then
put word three of foo into name
delete first char of name
delete first char of name
delete last char of name

if name >= 0 and name <= 99 then
radbuttonsoff
put "M" & name into butname
set the hilight of cd button butname to true
put name into activebutton
put name into bg field "memnum"
else
pass mouseDown
end if
else if word 2 of foo is "field" then
put word three of foo into name
delete first char of name
delete last char of name
if cd field name Γëá empty then
delete first char of name
VFOSelect mem
choosemem name
put name into activebutton
radbuttonsoff
put "M" & activebutton into foo
set the highlight of cd button foo to true
put activebutton into bg field memnum
end if
else
pass mouseDown
end if
end mousedown


-- must be run while in the foreground

-- on makefields
-- repeat with j = 1 to 5
-- repeat with i = 1 to 20
-- set cursor to busy
-- domenu "new button"
-- set the style of last card button to radioButton
-- set the showname of last card button to false
-- set the name of last card button to "M" & i + (j-1)*20 - 1
-- set the textFont of last card button to Geneva
-- set the textSize of last card button to 9
-- set the rect of last card button to ¬
-- 2 + ((j-1) * 92), (i*15) - 12, 22 + ((j-1) * 92), 2 + (i*15)
-- -- domenu "new field"
-- -- set the name of last card field to i  + (j-1)*20 - 1
-- -- set the textFont of last card field to geneva
-- -- set the textSize of last card field to 9
-- -- set the rect of last card field  to ¬
-- -- 24 + ((j-1) * 92), (i*15) - 12, 89 + ((j-1) * 92), 2 + (i*15)
-- end repeat
-- end repeat
-- end makefields

-- on zap
-- -- repeat with i = 1 to the number of background fields
-- -- set cursor to busy
-- -- set the visible of last card field to true
-- -- select last card field
-- -- domenu "Clear Field"
-- -- end repeat
-- repeat with i = 1 to the number of cd buttons
-- set cursor to busy
-- set the visible of last card button to true
-- select last card button
-- domenu "clear button"
-- end repeat
-- end zap

</script>
</background>